home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / recipe.sit / Recipe Box / background_2830.txt < prev    next >
Encoding:
Text File  |  1988-08-19  |  6.1 KB  |  279 lines
  1. -- background: 2830 from stack: in
  2. -- bmap block id: 6264
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push card
  9. end openBackground
  10.  
  11.  
  12. -- part 1 (field)
  13. -- low flags: 01
  14. -- high flags: 0000
  15. -- rect: left=63 top=33 right=52 bottom=181
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 20
  20. -- text size: 14
  21. -- style flags: 8448
  22. -- line height: 18
  23. -- part name: 
  24.  
  25.  
  26. -- part 8 (button)
  27. -- low flags: 00
  28. -- high flags: 0000
  29. -- rect: left=270 top=287 right=312 bottom=297
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 1013 / 1013
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Next
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   visual effect wipe down
  41.   go to next card
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 14 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=422 top=284 right=312 bottom=459
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 1012 / 1012
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Return
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   pop card -- pop this card off of the stack
  61.   visual effect iris close
  62.   pop card
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 19 (button)
  68. -- low flags: 00
  69. -- high flags: 0000
  70. -- rect: left=225 top=287 right=312 bottom=252
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 1014 / 1014
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Prev
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   visual effect wipe up
  82.   go to previous card
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 21 (button)
  88. -- low flags: 00
  89. -- high flags: 8003
  90. -- rect: left=164 top=291 right=333 bottom=209
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: New
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   set lockScreen to True
  102.   put the id of this card into index
  103.   go to card "master recipe"
  104.   domenu "Copy Card"
  105.   closeCard
  106.   go to index
  107.   domenu "Paste Card"
  108.   set the script of this card to empty
  109.   ask "What is name of new recipe?"
  110.   if it is empty then
  111.     set lockScreen to True
  112.     domenu "Delete Card"
  113.     go to index
  114.   else
  115.     put it into newName
  116.     put newName into field 1
  117.     set lockScreen to False
  118.     set the name of this card to newName
  119.     put the id of this card into temp
  120.     set lockScreen to True
  121.     go to index
  122.     doMenu "New Button"
  123.     set rect of button "New Button" to 200,100,335,115
  124.     set textStyle of button "New Button" to plain
  125.     set textStyle of button "New Button" to condense
  126.     set textSize of button "New Button" to 12
  127.     set textStyle of button "New Button" to underline
  128.     set textFont of button "New Button" to Geneva
  129.     set textAlign of button "New Button" to left
  130.     set showName of button "New Button" to true
  131.     set the style of button "New Button" to transparent
  132.     set name of button "New Button" to newName
  133.     put "on mouseUp" into line 1 of newScript
  134.     put "hide message" into line 2 of newScript
  135.     put "put newRecipe("& quote & temp & quote & ") into dummy" into line 3 of newScript
  136.     put "go to" && temp into line 4 of newScript
  137.     put "end mouseUp" into line 5 of newScript
  138.     set script of button newName to newScript
  139.     set the loc of message to 15,300
  140.     put "Drag the button to the desired location and type Command-Tab"
  141.     set lockScreen to False
  142.   end if
  143. end Mouseup
  144.  
  145.  
  146.  
  147. -- part 26 (button)
  148. -- low flags: 00
  149. -- high flags: 0000
  150. -- rect: left=110 top=289 right=335 bottom=158
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 1007 / 1007
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: ImageWriter
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   doMenu "Print Card"
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 27 (button)
  167. -- low flags: 00
  168. -- high flags: 0000
  169. -- rect: left=10 top=293 right=331 bottom=51
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 20098 / 20098
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: Home
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   visual effect iris close
  181.   go home
  182. end mouseUp
  183.  
  184.  
  185.  
  186. -- part 28 (button)
  187. -- low flags: 00
  188. -- high flags: 0000
  189. -- rect: left=470 top=286 right=313 bottom=501
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 26635 / 26635
  192. -- text alignment: 1
  193. -- font id: 0
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: Help
  198. ----- HyperTalk script -----
  199. on mouseUp
  200.   go to card "Recipe Help"
  201. end mouseUp
  202.  
  203.  
  204. -- part 29 (button)
  205. -- low flags: 00
  206. -- high flags: A003
  207. -- rect: left=314 top=312 right=334 bottom=409
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 1
  211. -- font id: 0
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: Find
  216. ----- HyperTalk script -----
  217. on mouseUp
  218.   doMenu "Find..."
  219. end mouseUp
  220.  
  221.  
  222.  
  223. -- part 30 (button)
  224. -- low flags: 00
  225. -- high flags: 8003
  226. -- rect: left=313 top=288 right=310 bottom=406
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 1
  230. -- font id: 0
  231. -- text size: 12
  232. -- style flags: 0
  233. -- line height: 16
  234. -- part name: Index
  235. ----- HyperTalk script -----
  236. on mouseUp
  237.   go to first card
  238. end mouseUp
  239.  
  240.  
  241.  
  242. -- part 32 (button)
  243. -- low flags: 00
  244. -- high flags: 8003
  245. -- rect: left=248 top=321 right=337 bottom=276
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 0
  250. -- text size: 12
  251. -- style flags: 0
  252. -- line height: 16
  253. -- part name: Art
  254. ----- HyperTalk script -----
  255. on mouseUp
  256.   push card
  257.   go to card "Art Ideas"
  258. end mouseUp
  259.  
  260.  
  261.  
  262. -- part 33 (button)
  263. -- low flags: 00
  264. -- high flags: 0000
  265. -- rect: left=64 top=291 right=330 bottom=106
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 32670 / 32670
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: 
  274. ----- HyperTalk script -----
  275. on mouseUp
  276.   show all cards
  277. end mouseUp
  278.  
  279.